SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoRPOkaT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Random number generator. 

ABSTRACT: Produces a random longword. 

AUTHOR: Paul R. Beck 

DATE: 19=APR-1983 Last Edit: 19-APR-1983 21:37:26 


REVISION HISTORY: 
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Local data 
ENMS: .LONG -100*1000,-1 : 10 ms timer 


-BLKL 1 ; build the key here 
A: -BLKL 1 Just increment this ad nauseum 
SET: .BLKL 1 Offset into KEY 


UTILSRANDOM_KEY 


FUNCTIONAL DESCRIPTION: 

reate a random, 32-bit key. This is done two bits at a time. 
CALLING SEQUENCE: 

LLS  #1,UTILSRANDOM_KEY 
INPUT PARAMETERS: 


None 
OUTPUT PARAMETERS: 
= address to receive key 
COMPLETION CODES: 
S$S$_NORMAL 
ENTRY UTILSRANDOM_KEY, “M<> 


CLRQ DATA 


FFFFFFFF FFFE7960 
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set offset into key and counter 
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0 daytim NMS - ; 10 ms timer 
3 Y_AST ; address of timer AST 
19 50 €9 BLBC RO,20$ 3 
D9 AF D6 00 10$: INCL DATA ; t#® LOOP ee 
FFFFFFFF 8F DA AF D1 0 CMPL OFFSET,#-1 3; done yet? 
F3 is 0 BNEQ 10$ ; if NEQ, no. 
04 BC CBAF OD 0 MOVL KEY,a@4(AP) 3 return random key 
50  00000000'8F 00 00 MOVL § #SS$_NORMAL,RO ; done 
04 4 20$: RET 
4A 3; AST to collect the random key. two bits every 10 ms. 
4A 3; KEY contains address of the key being constructed 
4A 3; DATA contains the raw data (we just use the low two bits as random) 
re ; OFFSET contains the number of passes made *2 and offsets into the key. 
0000 re e-ENTRY KEY_AST,“M<> 
28 C1 AF OD 4 MOVL OFFSET,RO 
Bl AF 02 B9 AF OF 5 INSV DATA, RO, #2, KEY ; move next two bits into key 
B6 AF OD INCL OFFSET : adjust offset 
02 B2 AF 79 , 4 AOBLSS #32,0FFSET,10$ 3 ..eand exit when we're done 
1 10$: SSETIMR_S - 
1 daytim = TENMS - ; 10 ms timer 
06 1 ast astadr = KEY_AST ; address of timer AST 
95 AF FFFFFFFF 8F rs 208: eye #-1, OFFSET ; set flag and don't reissue AST 
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UTILSRANDOM_KEY 16-SEP-1984 01:13:17 YAX/VMS Macro V04-00 Pa 
Symbol table 3 SE] 984 EY SYSLOA.SRCJUTILKEY.MAR; 1 * 3) 


SaTA ; D ' 

BY oe Hi fi an 

OF FSET 0 10 R 1 SS$_ 

S$_NORMAL eererere = §6X 1 SS$_ 

SYSSSETIMR eetereee GX 1 SS$_ 

TENMS 88800000 R 1 SS$_ 

UTILSRANDOM_KEY 00000014 RG 1 333- 

, eeececeaneenen aly a siks 

;_Psect synopsis : STRS 

STRS 

PSECT name Allocation PSECT No. Attributes Abs 

. ABS. 00000000 < 0.) 00 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE SWIT 

. BLANK . 0000007C ¢ 124.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE aves 

4 eS een Seema rae wmecnananacn 4 av33 

iceerecoens Seer S18 

Phase Page faults CPU Time Elapsed Time SYS 
Initialization 32 0:00:00.04 : 8:8 44 
Command processing 135 - :00.41 : e ee? 
Pass 107 : 47 :00:05.55 
Symbol table sort 0 0:00:00.00 : 9? 
Pass 2 34 8: :00.1 702.76 
Symbol table output :00: 8 :00.01 
Psect synopsis output 0:00:00. 0:00:00.01 
Cross-reference output 3:8 :00.00 0: 3:9 -00 
Assembler run totals 31 0:00:01.11 0:00:12.86 


2146 bytes (5 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 9 non-local and 4 local symbols. 
95 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

4 pages of virtual memory were used to define 4 macros. 


The working get Limit was 1050 pages. 
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Macro library statistics H 
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Macro Library name Macros defined 
“$523 SDUAGE: SYS.OBJJLIB.MLB;1 0 
$255SDUA28: (SYSLIBJSTARLET.MLB;2 4 
TOTALS (all Libraries) 4 


41 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LISS:UTILKEY/OBJ=OBJS$S:UTILKEY MSRCS:UTILKEY/UPDATE=(ENHS:UTILKEY) +EXECMLS/LIB 
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